home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / comm / mail / maildemon4_10.lha / MAILDEMON / Install&Update < prev    next >
Text File  |  1996-09-27  |  11KB  |  363 lines
  1.  
  2. ; TAB = 6
  3.  
  4.  
  5. ; #####  Globale Variablen  #####
  6. (set #versi-old "4.9")
  7. (set #versi-new "4.10")
  8. (set #versi-dat "28-Sep-1996")
  9.  
  10.  
  11. (set #installmode 0)
  12.  
  13. (set #cfg-help
  14.   (cat "Die angewählte Beispielkonfiguration wird in das MAILDEMON-Verzeichnis entpackt. "
  15.      "Bei Bedarf werden hierbei die Unterverzeichnisse \"MAILDEMON:Konfiguration/\" und "
  16.      "\"MAILDEMON:Files/\" automatisch erstellt.")
  17. )
  18. (set #not-inst "\n\n\n\n\n\nDer MAILDEMON wurde noch nicht installiert!")
  19. (set #coders-help
  20.   (cat "Die beiden Programme \"uuin\" und \"Base64Encode\" werden zur "
  21.      "uucodierung bzw. Base64-Codierung benötigt. Wenn Sie keine Codierung "
  22.      "von Nachrichten wünschen, brauchen Sie diese Programme nicht zu "
  23.      "installieren. Sie sind für den Ablauf des MAILDEMON nicht notwendig.\n\n"
  24.      @copylib-help)
  25. )
  26. (set #mn-help
  27.   (cat "Die MUI-Klasse MonthNavigator wird im MAILDEMON-Prefs zur Eingabe "
  28.      "von Datumsangaben benötigt.\n\n"
  29.      @copylib-help)
  30. )
  31.  
  32.  
  33. ; #####  Script-Start  #####
  34. (welcome
  35.   (message (cat "\n\n\n\n\nMAILDEMON " #versi-new " [SHAREWARE]\n\nCopyright © " #versi-dat ' by\nMaik "BLiZZeR" Schreiber'))
  36.   (message
  37.     (cat "\nWerter MAILDEMON-Anwender, dies ist ein \"intelligentes\" Installationsscript. Alle "
  38.        "(De-)Installations-Aktion können Sie bequem über dieses Script regeln. Es versetzt "
  39.        "Sie in die Lage, jede einzelne Aktion zu steuern und zu überwachen. Vor jeder "
  40.        "schreibenden und löschenden Aktion kommt eine Sicherheitsabfrage, mit der Sie den "
  41.        "Vorgang auf Wunsch abbrechen können. Außerdem finden sie zu jeder Aktion eine "
  42.        "umfangreiche Hilfe, die Sie bei Fragen zu Rate ziehen können.\n\nViel Spaß noch :)")
  43.   )
  44. )
  45.  
  46. (while (= 1 1)
  47.   (
  48.  
  49.     (set #installmode
  50.     (askchoice
  51.       (prompt "Welchen Installationsmodus wünschen Sie?")
  52.       (choices (cat "Komplette Neuinstallation des MAILDEMON " #versi-new)
  53.              (cat "Update von Version " #versi-old " auf " #versi-new)
  54.                 "Starten des Konfigkonverters"
  55.                 "Starten von PMBS2Emp"
  56.                 "Installation einer Beispielkonfiguration"
  57.                 "Komplette Deinstallation des MAILDEMON"
  58.                 "Registrierformular ausfüllen"
  59.                 "Beenden des Installers")
  60.       (default #installmode)
  61.       (help @askchoice-help)
  62.     )
  63.     )
  64.  
  65.     ; #####  Neuinstallation/Update  #####
  66.     (if (OR (= #installmode 0) (= #installmode 1))
  67.     (
  68.       (if (AND (= #installmode 1) (= (getassign "MAILDEMON") ""))
  69.         (message #not-inst)
  70.         (
  71.         (if (= #installmode 0)
  72.           (
  73.             (set #dummy @default-dest)
  74.             (set #dest
  75.             (askdir
  76.               (prompt "Wohin soll der MAILDEMON installiert werden?")
  77.               (help
  78.                 (cat "Hier legen Sie fest, in welches Verzeichnis Sie den MAILDEMON installieren "
  79.                    "möchten. Im angewählten Verzeichnis wird automatisch ein Unterverzeichnis "
  80.                    "\"MAILDEMON\" angelegt.\nACHTUNG: Bitte installieren Sie den MAILDEMON "
  81.                    "nicht über eine bereits vorhandene Installation! Möchten Sie den "
  82.                    "MAILDEMON neu installieren, sollten Sie zuvor die Deinstallation "
  83.                    "starten.\n\n"
  84.                    @askdir-help)
  85.               )
  86.               (default #dummy)
  87.               (disk)
  88.             )
  89.             )
  90.             (set #dest (tackon #dest "MAILDEMON"))
  91.             (makedir #dest
  92.             (prompt "\n\n\n\n\n\nDas Unterverzeichnis \"MAILDEMON\" wird angelegt.")
  93.             (infos)
  94.             (confirm)
  95.             (help @makedir-help)
  96.             )
  97.             (message "\n\n\n\n\n\nDer Assign \"MAILDEMON:\" wird jetzt angelegt."
  98.             (help
  99.               (cat "Damit der MAILDEMON richtig funktioniert, benötigt er einen Assign "
  100.                  "namens \"MAILDEMON:\". Wenn Sie diesen Assign jetzt anlegen lassen, "
  101.                  "können Sie den MAILDEMON nach der Installation sofort benutzen.")
  102.             )
  103.             )
  104.             (makeassign "MAILDEMON" #dest)
  105.           )
  106.           (set #dest "MAILDEMON:")
  107.         )
  108.         (copyfiles
  109.           (prompt "Kopieren der Dateien...")
  110.           (choices "MAILDEMON" "MAILDEMON-Prefs" "MAILDEMON.guide" "Konfigkonverter" "Register.txt"
  111.                  "MAILDEMON.info" "MAILDEMON-Prefs.info" "MAILDEMON.guide.info" "Konfigkonverter.info" "Register.txt.info")
  112.           (help
  113.             (cat "Hier legen Sie fest, welche Dateien Sie in das MAILDEMON-Verzeichnis kopieren "
  114.                "lassen möchten. Grundsätzlich notwendig für die Arbeit des MAILDEMON sind nur "
  115.                "das Hauptprogramm selbst (\"MAILDEMON\") sowie der Voreinsteller (\"MAILDEMON-"
  116.                "Prefs\"). Alle weiteren Dateien sind für den Ablauf nicht notwendig.\n\n"
  117.                @copyfiles-help)
  118.           )
  119.           (source "")
  120.           (dest #dest)
  121.           (confirm)
  122.         )
  123.         (copylib
  124.           (prompt "Kopieren der Codierer...")
  125.           (help #coders-help)
  126.           (source "uuin")
  127.           (dest "c:")
  128.           (confirm)
  129.         )
  130.         (copylib
  131.           (prompt "Kopieren der Codierer...")
  132.           (help #coders-help)
  133.           (source "Base64Encode")
  134.           (dest "c:")
  135.           (confirm)
  136.         )
  137.         (copylib
  138.           (prompt "Kopieren des MonthNavigator-Pakets...")
  139.           (help #mn-help)
  140.           (source "MonthNavigator/MonthNavigator.mcc")
  141.           (dest "MUI:Libs/MUI/")
  142.           (confirm)
  143.         )
  144.         (copylib
  145.           (prompt "Kopieren des MonthNavigator-Pakets...")
  146.           (help #mn-help)
  147.           (source "MonthNavigator/MonthNavigator.mcp")
  148.           (dest "MUI:Libs/MUI/")
  149.           (confirm)
  150.         )
  151.         (copylib
  152.           (prompt "Kopieren des MonthNavigator-Pakets...")
  153.           (help #mn-help)
  154.           (source "MonthNavigator/date.library")
  155.           (dest "LIBS:")
  156.           (confirm)
  157.         )
  158.         (if (= #installmode 0)
  159.           (
  160.             (makedir (tackon #dest "Konfiguration")
  161.             (prompt "\n\n\n\n\n\nDas Unterverzeichnis \"Konfiguration\" wird angelegt.")
  162.             (confirm)
  163.             (help
  164.               (cat "Im Unterverzeichnis \"Konfiguration\" legt der MAILDEMON alle Konfigurations"
  165.                  "dateien ab. Dieses Verzeichnis ist für den Ablauf unbedingt notwendig!\n\n"
  166.                  @makedir-help)
  167.             )
  168.             )
  169.             (startup 'MAILDEMON'
  170.             (prompt "\n\n\n\n\nDer Assign \"MAILDEMON:\" wird in die User-Startup eingefügt.")
  171.             (command (cat "Assign MAILDEMON: \"" #dest "\""))
  172.             (help
  173.               (cat "Damit der MAILDEMON richtig funktioniert, benötigt er einen Assign "
  174.                  "namens \"MAILDEMON:\". Der Einfachheit halber wird dieser Assign "
  175.                  "normalerweise bereits beim Hochfahren des Rechners angelegt (in der "
  176.                  "User-Startup). In Ihre User-Startup werden jetzt folgende Zeilen "
  177.                  "eingefügt:\n\n;BEGIN MAILDEMON\nAssign MAILDEMON: \"" #dest "\"\n"
  178.                  ";END MAILDEMON\n\n"
  179.                  @startup-help)
  180.             )
  181.             )
  182.           )
  183.           (run "Konfigkonverter <>CON:0/11/640/189/Konfigkonverter/WAIT/CLOSE")
  184.         )
  185.         (message
  186.           (cat "Nach 2 Major-Updates habe ich mich nun entschlossen, alle weiteren Updates "
  187.              "kostenlos herauszubringen. Dies bedeutet für registrierte Anwender, daß sie von "
  188.              "allen neuen Features kostenfreien Gebrauch machen können. Allerdings bin ich in "
  189.              "der Situation, daß ich für meine Arbeit nicht belohnt werde.\n\nMeine Bitte "
  190.              "an Sie: Wenn Sie der Meinung sind, daß meine Arbeit entschädigt werden sollte, "
  191.              "können Sie mir eine Spende zukommen lassen (meine Bankverbindung finden Sie auf "
  192.              "der nächsten Seite). Sie helfen mir damit, die Entwicklung des MAILDEMON aufrecht "
  193.              "zu erhalten und weiter voranzutreiben.\n\nVielen Dank.")
  194.         )
  195.         (message
  196.           (cat "\nMeine Adresse:\n\n"
  197.              "Maik Schreiber\n"
  198.              "Korallusstraße 3b\n"
  199.              "21109 Hamburg\n"
  200.              "FR Germany\n\n\n"
  201.              "Meine Bankverbindung:\n\n"
  202.              "Kontonummer: 214 09 11 (Maik Schreiber)\n"
  203.              "Bankleitzahl: 130 700 00 (Deutsche Bank)")
  204.         )
  205.         (message
  206.           (cat "\n\n\n\n\nBitte beachten Sie die neuen Mailinglisten für den MAILDEMON.\n"
  207.              "Nähere Erläuterungen finden Sie in der Anleitung.")
  208.         )
  209.         )
  210.       )
  211.     )
  212.     )
  213.  
  214.     ; #####  Konfigkonverter      #####
  215.     (if (= #installmode 2)
  216.     (if (= (getassign "MAILDEMON") "")
  217.       (message #not-inst)
  218.       (run "Konfigkonverter <>CON:0/11/640/189/Konfigkonverter/WAIT/CLOSE")
  219.     )
  220.     )
  221.  
  222.     ; #####  PMBS2Emp  #####
  223.     (if (= #installmode 3)
  224.     (
  225.       (set #p2e
  226.         (askchoice
  227.         (prompt "Wie soll PMBS2Emp gestartet werden?")
  228.         (choices "Umleitung in eine .emp-Datei"
  229.                "Umleitung in ein Fenster"
  230.                "Exit")
  231.         (help
  232.           (cat "Mit dem Hilfsprogramm \"PMBS2Emp\" ist es möglich, die Brettliste des "
  233.              "Mailboxprogramms \"Prometheus\" in eine für den MAILDEMON zugeschnittene "
  234.              "Form zu bringen (Empfängergruppen).\nACHTUNG: Der Server muß während des "
  235.              "Starts von \"PMBS2Emp\" aktiv sein!\n\n"
  236.              @askchoice-help)
  237.         )
  238.         )
  239.       )
  240.       (if (OR (= #p2e 0) (= #p2e 1))
  241.         (
  242.         (set #pattern
  243.           (askstring
  244.             (prompt "\n\n\nBitte ein Muster eingeben:")
  245.             (default "#?")
  246.             (help
  247.             (cat "PMBS2Emp ist ab der Version 1.2 in der Lage, Bretter nach einem Muster "
  248.                  "auszugeben, z.B. \"#?WERB#?\". Geben Sie hier bitte das gewünschte Muster "
  249.                  "ein. Ist das Muster leer, wird automatisch \"#?\" angenommen, also alle "
  250.                  "Bretter.")
  251.             )
  252.           )
  253.         )
  254.         (if (= #p2e 0)
  255.           (set #dir
  256.             (askfile
  257.             (prompt "In welche Datei soll die Ausgabe umgeleitet werden?")
  258.             (help @askfile-help)
  259.             (default "Bretter.emp")
  260.             )
  261.           )
  262.           (set #dir "CON:0/11/640/189/PMBS2Emp")
  263.         )
  264.         (run "LZX e PMBS2Emp.lzx RAM: PMBS2Emp")
  265.         (run (cat "RAM:PMBS2Emp >" #dir " " #pattern))
  266.         (delete "RAM:PMBS2Emp")
  267.         )
  268.       )
  269.     )
  270.     )
  271.  
  272.     ; #####  Beispielkonfiguration        #####
  273.     (if (= #installmode 4)
  274.     (
  275.       (if (= (getassign "MAILDEMON") "")
  276.         (message #not-inst)
  277.         (
  278.         (set #konfig
  279.           (askchoice
  280.             (prompt "Welche Beispielkonfiguration soll installiert werden?")
  281.             (choices "Prometheus"
  282.                  "FastCall"
  283.                  "Connectline"
  284.                  "Exit")
  285.             (help
  286.             (cat "Für die Mailboxprogramme \"Prometheus\", \"FastCall\" und \"Connectline\" "
  287.                  "liegen Beispielkonfigurationen vor. Wählen Sie hier, welche dieser Beispiel"
  288.                  "konfigurationen Sie installieren möchten.\nACHTUNG: Bevor Sie eine "
  289.                  "Beispielkonfiguration installieren, sollte der MAILDEMON installiert "
  290.                  "worden sein!\n\n"
  291.                  @askchoice-help)
  292.             )
  293.           )
  294.         )
  295.         (if (= #konfig 0)
  296.           (run "LZX <>CON:0/11/640/189/Beispielkonfiguration x CfgPrometheus.lzx MAILDEMON:"
  297.             (prompt "\n\n\n\n\nInstalliere jetzt die Beispielkonfiguration für \"Prometheus\".")
  298.             (help #cfg-help)
  299.             (confirm)
  300.           )
  301.         )
  302.         (if (= #konfig 1)
  303.           (run "LZX <>CON:0/11/640/189/Beispielkonfiguration x CfgFastCall.lzx MAILDEMON:"
  304.             (prompt "\n\n\n\n\nInstalliere jetzt die Beispielkonfiguration für \"FastCall\".")
  305.             (help #cfg-help)
  306.             (confirm)
  307.           )
  308.         )
  309.         (if (= #konfig 2)
  310.           (run "LZX <>CON:0/11/640/189/Beispielkonfiguration x CfgConnectline.lzx MAILDEMON:"
  311.             (prompt "\n\n\n\n\nInstalliere jetzt die Beispielkonfiguration für \"Connectline\".")
  312.             (help #cfg-help)
  313.             (confirm)
  314.           )
  315.         )
  316.         )
  317.       )
  318.     )
  319.     )
  320.  
  321.     ; #####  Deinstallation  #####
  322.     (if (= #installmode 5)
  323.     (
  324.       (set #dir (getassign "MAILDEMON"))
  325.       (if (= #dir "")
  326.         (message #not-inst)
  327.         (
  328.         (if (= (askbool
  329.                (prompt "\n\n\n\n\nSoll der MAILDEMON wirklich deinstalliert werden?")
  330.                (help "")
  331.                (default 0)
  332.              ) 1)
  333.           (
  334.             (makeassign "MAILDEMON")
  335.             (run (cat 'Delete >NIL: "' #dir '" "' #dir '.info" ALL FORCE') (prompt "") (help ""))
  336.             (message
  337.             (cat "\n\nBei der Installation wurde in Ihrer User-Startup ein Assign eingefügt. "
  338.                  "Um diesen zu entfernen, müssen Sie die Datei s:User-Startup in einen "
  339.                  "Editor laden und folgende Zeilen entfernen:\n\n;BEGIN MAILDEMON\n"
  340.                  "Assign MAILDEMON: \"" #dir "\"\n;END MAILDEMON\n\nDamit ist die "
  341.                  "Deinstallation dann abgeschlossen.")
  342.             )
  343.           )
  344.         )
  345.         )
  346.       )
  347.     )
  348.     )
  349.  
  350.     ; #####  Registrierung  #####
  351.     (if (= #installmode 6)
  352.     (run "ED Register.txt"
  353.       (prompt "")
  354.       (help "")
  355.     )
  356.     )
  357.  
  358.     ; #####  Ente  #####
  359.     (if (= #installmode 7) (exit (quiet)))
  360.   )
  361. )
  362.  
  363.